From: Jason Rumney <jasonr@gnu.org>
Date: Wed, 28 Jan 2004 23:32:55 +0000 (+0000)
Subject: Added support for the `default-printer-name' function.
X-Git-Tag: archive/raspbian/1%29.2+1-2+rpi1~1^2~24336
X-Git-Url: https://dgit.raspbian.org/%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:///%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:/?a=commitdiff_plain;h=18fa5b42af92eeeecfa577daa2dd0a86d11bdefb;p=emacs.git

Added support for the `default-printer-name' function.
---

diff --git a/lisp/dos-w32.el b/lisp/dos-w32.el
index c1c189166bb..d7b411fab3f 100644
--- a/lisp/dos-w32.el
+++ b/lisp/dos-w32.el
@@ -378,7 +378,8 @@ indicates a specific program should be invoked."
 	 (printer (or (and (boundp 'dos-printer)
 			   (stringp (symbol-value 'dos-printer))
 			   (symbol-value 'dos-printer))
-		      printer-name)))
+		      printer-name
+		      (default-printer-name))))
     (or (eq coding-system-for-write 'no-conversion)
 	(setq coding-system-for-write
 	      (aref eol-type 1)))	; force conversion to DOS EOLs
@@ -411,7 +412,8 @@ indicates a specific program should be invoked."
   (let ((printer (or (and (boundp 'dos-ps-printer)
 			  (stringp (symbol-value 'dos-ps-printer))
 			  (symbol-value 'dos-ps-printer))
-		     ps-printer-name)))
+		     ps-printer-name
+		     (default-printer-name))))
     (direct-print-region-helper printer start end lpr-prog
 				delete-text buf display rest)))